home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzmail / mrgstart.prg < prev    next >
Encoding:
Text File  |  1998-05-01  |  1.1 KB  |  41 lines
  1. * This is the stub which you should copy (place the modified version in
  2. * your Wizard's directory), rename, and modify to call your wizard.
  3.  
  4. PARAMETER cOutFileVarName, p2, p3, p4, p5, p6, p7, p8, p9
  5. LOCAL cClassLib
  6.  
  7. m.cClassLib = set('classlib')
  8.  
  9.  
  10. * Modify here to reference your wizard's .vcx.
  11. set classlib to mailwiz
  12.  
  13. public oWizard
  14.  
  15. * The name "oWizard" is used in automated testing and should *NOT* be changed.
  16.  
  17. oWizard = createobj("mailmergewizard", m.cOutFileVarName, m.p2, m.p3, m.p4, ;
  18.     m.p5, m.p6, m.p7, m.p8, m.p9)
  19.  
  20. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  21.     oEngine.aEnvironment[17,1] = m.cClassLib
  22.     oWizard.Show
  23. endif
  24. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  25.     * It must be modeless, so leave it alone
  26. else
  27.     release oWizard
  28. endif
  29.  
  30.  
  31.  
  32. PROCEDURE dummy
  33.     * This routine is used to resolve Project array references.
  34.     public aflddata[1],afielddata[1],atmpglobals,awizfields,aparms
  35.     public aflddata[1],aglobals[1],aafielddata[1],atmpglobals[1]
  36.     public awizfields[1],aparms[1], aPageRef[1]
  37.     FUNCTION GetProfileString
  38.     FUNCTION GetPrivateProfileString
  39. ENDPROC
  40.  
  41.